00100	TITLE LOOP
00200	ENTRY LOOP
00300	;	SUBROUTINE LOOP(I,J,K,L,M,N)
00400	;	DIMENSION N(1)
00500	;	DO 1 NN=I,J,K
00600	;1	N(NN+L)=N(NN+M)
00700	;	END
00800	
00900	LOOP:	0
01000		MOVE 4,@1(16)
01100		MOVE 3,@0(16)
01200		SUB 4,3
01300		HRRZ 2,5(16)
01400		SOJ 2,
01500		ADD 2,3
01600		JUMPL 4,MIMI
01700		HRR 5,2
01800		ADD 5,@3(16)
01900		ADD 4,2
02000		ADD 4,@3(16)
02100		ADD 2,@4(16)
02200		HRL 5,2
02300		BLT 5,(4)
02400		JRA 16,6(16)
02500	MIMI:	HRR 5,@4(16)
02600		HRRM 5,XN
02700		HRR 5,@3(16)
02800		HRRM 5,XN+1
02900	XN:	MOVE 6,(2)
03000		MOVEM 6,(2)
03100		SOJ 2,
03200		AOJL 4,XN
03300		JRA 16,6(16)
03400		END